﻿
Imports System.Data
Imports VSModel
Imports Cls_Common
Partial Class FrontEnd_Control_MemberUtility
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            'If Not Session("UserName") Is Nothing Then
            '    hidUserName.Text = Session("UserName")

            'End If
          
        End If
        Dim lstNode As New DataSet
        lstNode.ReadXml(MapPath("../../xml/LeftMenu.xml"))
        With rptMenu
            .DataSource = lstNode.Tables("Node")
            .DataBind()
        End With
    End Sub

    Protected Sub rptMenu_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles rptMenu.ItemDataBound
        Dim hplTitle As HyperLink
        hplTitle = e.Item.FindControl("hplTitle")
        hplTitle.Text = e.Item.DataItem("Title")
        hplTitle.NavigateUrl = MainDomain & e.Item.DataItem("URL")
    End Sub
End Class
